home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / automa_1 / frmclien.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-23  |  3.1 KB  |  106 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Begin VB.Form frmClient 
  5.    Caption         =   "Client"
  6.    ClientHeight    =   1335
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   4680
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1335
  12.    ScaleWidth      =   4680
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin MSWinsockLib.Winsock wsTCP 
  15.       Index           =   0
  16.       Left            =   120
  17.       Top             =   480
  18.       _ExtentX        =   741
  19.       _ExtentY        =   741
  20.       _Version        =   393216
  21.    End
  22.    Begin VB.CommandButton cmdSend 
  23.       Caption         =   "Send"
  24.       Height          =   315
  25.       Left            =   1800
  26.       TabIndex        =   2
  27.       Top             =   600
  28.       Width           =   1215
  29.    End
  30.    Begin MSComDlg.CommonDialog dlg 
  31.       Left            =   600
  32.       Top             =   480
  33.       _ExtentX        =   847
  34.       _ExtentY        =   847
  35.       _Version        =   393216
  36.    End
  37.    Begin VB.CommandButton cmdBrowse 
  38.       Caption         =   "Browse"
  39.       Height          =   315
  40.       Left            =   3360
  41.       TabIndex        =   1
  42.       Top             =   120
  43.       Width           =   1215
  44.    End
  45.    Begin VB.TextBox txtFile 
  46.       Height          =   315
  47.       Left            =   120
  48.       TabIndex        =   0
  49.       Top             =   120
  50.       Width           =   3135
  51.    End
  52.    Begin VB.Label lblStatus 
  53.       BorderStyle     =   1  'Fixed Single
  54.       Height          =   315
  55.       Left            =   0
  56.       TabIndex        =   3
  57.       Top             =   1020
  58.       Width           =   4695
  59.    End
  60. Attribute VB_Name = "frmClient"
  61. Attribute VB_GlobalNameSpace = False
  62. Attribute VB_Creatable = False
  63. Attribute VB_PredeclaredId = True
  64. Attribute VB_Exposed = False
  65. '==============================================
  66. 'Written by Igor Ostrovsky (igor@ostrosoft.com)
  67. 'Visual Basic 911 (http://www.ostrosoft.com/vb)
  68. '==============================================
  69. Option Explicit
  70. Dim buffer() As Byte
  71. Dim lBytes As Long
  72. Private Sub cmdBrowse_Click()
  73.   dlg.ShowOpen
  74.   txtFile = dlg.filename
  75. End Sub
  76. Private Sub cmdSend_Click()
  77.   cmdSend.Enabled = False
  78.   lBytes = 0
  79.   ReDim buffer(FileLen(dlg.filename) - 1)
  80.   Open dlg.filename For Binary As 1
  81.   Get #1, 1, buffer
  82.   Close #1
  83.   Load wsTCP(1)
  84.   wsTCP(1).RemoteHost = "localhost"
  85.   wsTCP(1).RemotePort = 1111
  86.   wsTCP(1).Connect
  87.   lblStatus = "Connecting..."
  88. End Sub
  89. Private Sub wsTCP_Close(Index As Integer)
  90.   lblStatus = "Connection closed"
  91.   Unload wsTCP(1)
  92. End Sub
  93. Private Sub wsTCP_Connect(Index As Integer)
  94.   lblStatus = "Connected"
  95.   wsTCP(1).SendData buffer
  96. End Sub
  97. Private Sub wsTCP_SendComplete(Index As Integer)
  98.   lblStatus = "Send complete"
  99.   Unload wsTCP(1)
  100.   cmdSend.Enabled = True
  101. End Sub
  102. Private Sub wsTCP_SendProgress(Index As Integer, ByVal bytesSent As Long, ByVal bytesRemaining As Long)
  103.   lBytes = lBytes + bytesSent
  104.   lblStatus = lBytes & " out of " & UBound(buffer) & " bytes sent"
  105. End Sub
  106.